|
CATIA V5 Programmierung : Formel Wenn LOW
Esterbauer am 22.02.2018 um 16:42 Uhr (1)
Hallo,Gibt es eine Möglichkeit ohne einer Knowledge Lizenz eine Art wenn dann abfrage in Catia zu erstellen?Meine Aufgabenstellung:Parameter Aushalt = 0 bis 3 ( Es ist eine Auswahlliste von 1 - 3)Parameter Teil 1 = 100 (einfacher Wert)Parameter Teil 2 = 200 (einfacher Wert)Parameter Teil 3 = 300 (einfacher Wert)Parameter Ausgabe = x ( hier soll Anhängig vom der Auswahl oben der wert von Teil 1, Teil 2 oder Teil 3 geschrieben werden.Geht so was ?Wer könnte mir da helfen.Wäre superDanke
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : VBA prüfen ob aktives Fenster ein Produkt ist
Esterbauer am 19.09.2018 um 08:12 Uhr (15)
Danke nochmals für eure Hilfe Ich habe das ganz anders gelöst.If CATIA.Documents.Count = 0 thenMsgBox "Kein Dokument geöffnet, Bitte öffnen Sie ein Produkt"Exit SubEnd ifDim oDocument As DocumentSet oDocument = CATIA.ActiveDocumentif TypeName(oDocument) = "PartDocument" ThenMsgBox "Falsche Dokumentart geöffnet. Bitte öffnen Sie ein Produkt"Exit Subif TypeName(oDocument) = "DrawingDocument" ThenMsgBox "Falsche Dokumentart geöffnet. Bitte öffnen Sie ein Produkt"Exit Subend ifend ifEnd Sub
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Formelwert suchen und löschen
Esterbauer am 07.12.2018 um 10:00 Uhr (1)
Da ich kaum Kenntnisse im der VBA Programmierung habe bin ich auch noch nicht Richtig weiter gekommen.Habe versuch mit der Catia Suchfunktion die Formel zu finden das funktioniert aber leider nicht.Was meinst du mit Outputparameter ? wie kann man den abfragen ?Gruß
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Dateinamen auslesen und als Paramteter ausgeben
Esterbauer am 19.09.2017 um 13:31 Uhr (1)
Danke für die schnell Antwort.Da ich keine Ahnung vom Programmieren habe komme ich mit den Link zum Forum nicht zurecht. Vielleicht gibt es eine andere Lösung.Mein Marko schaut folgendermaßen aus.Language="VBSCRIPT"Sub CATMain()Dim partDocument1 As DocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim relations1 As RelationsSet relations1 = part1.RelationsDim parameters1 As ParametersSet parameters1 = part1.ParametersDim strParam1 As ParameterSet strParam1 = par ...
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Suche höchste Nummer +1
Esterbauer am 28.12.2017 um 11:44 Uhr (1)
Hallo ich habe folgendes ProblemIch habe ein Produkt für Auswerfer. Mit einem Markos starte ich die Ausgangsdatei (_auswerfer_rund_) mit Datei Neu Aus, er kopiert mir die Datei anschließen in das vorhergesehene Produkt. Das funktioniert soweit auch sehr gut.Das ganze möchte ich öfters wiederholen, dazu muss ich aber zuerst den Dateinamen umbenennen ( z.b: 500_auswerfer_rund_as).Gibt es eine Möglichkeit das er die Benennung (dreistellige Pos Nr. selber erkennt welche die höchste Nr. ist und dann noch eins ...
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Körper hinzufügen
Esterbauer am 28.12.2017 um 12:06 Uhr (1)
Hallo,Habe folgendes Problem.Habe ein Produkt mit unterschiedlichen Parts , in den Parts gibt es jeweils einen Körper mit den Namen (Abzugskörper)Gibt es eine Möglichkeit per Makro alle Körper im Produkt zu suchen und diese anschließende zusammen in anderes Part (basismodell_auswerfer) im Hauprkörper Hinzufügen zu lassen.Das Suchen per Makro funktioniert soweit schon, da die Anzahl und Benennung der Parts immer unterschiedlich ist funktioniert das ganze dann nicht mehr.Muss man das mit Variablen Programmie ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Suche höchste Nummer +1
Esterbauer am 29.12.2017 um 08:55 Uhr (1)
Hallo Danke nochmals für deine HilfeHabe jetzt das Script zusammengeschrumpft.Hätte jetzt noch was.Habe Inputbox eingefügt, jetzt soll der Wert aus der nputbox in einen vordefinierten Parameter im Part übertragen werden, wie könnte das funktionieren.DankeSub CATMain() Dim PListe As Products Set PListe = CATIA.ActiveDocument.Product.Products Dim oPartDoc As Document Set oPartDoc = CATIA.Documents.NewFrom("H: 5_Catia V5Auswerfer\_auswerfer_rund_.CATPart") Antwort = InputBox("Pos Nr.:","Auswerfer Positi ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Speicherpfad auslesen
Esterbauer am 02.01.2018 um 15:31 Uhr (1)
Soweit hab ich das hinbekommen.Jetzt soll er noch einen Ordner tiefer und dann (Normteileauswerfer.catpart ) hinzufügen.Wie könnte das sein ? Language="VBSCRIPT"Sub CATMain()Dim targetfoldertargetfolder = CATIA.ActiveDocument.Path (?)MsgBox targetfolderEnd Sub
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Speicherpfad auslesen
Esterbauer am 02.01.2018 um 16:00 Uhr (1)
Hallo,Danke nochmals und sorry für meine Fragen.Da Ergebnis aus Strfolder = CATIA.ActiveDocument.Path = C:PartProduktDa Ergebnis aus StrTargetPath = C:PartProduktNormteileauswerfer.CATPartDa Ergebnis sollte aber eine Ordnerebene tiefer sein = C:PartNormteileauswerfer.CATPartwie kann ich so was machen hab nicht gefunden.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Körper hinzufügen
Esterbauer am 03.01.2018 um 11:23 Uhr (1)
Das suchen Funktioniert schon mal, aber das Hinzufügen der gefunden Körper bekomme ich einfach nicht hin.Hab unten ein Scriptteil gefunden weis aber nicht was ich da falsch mache. Hat wer einen Tipp für mich !Sub CATMain() Dim partDocument1 As Document Set partDocument1 = CATIA.ActiveDocument Dim selection1 As Selection Set selection1 = partDocument1.Selection selection1.Search "Name=*Abzugskörper,all"End Sub Dim j As Integer For j = 1 To UBound(aSelectedElements) Set oZPBodies = oZP.ReferenceProd ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Speicherpfad auslesen
Esterbauer am 03.01.2018 um 11:25 Uhr (1)
Danke jetzt funktioniert es. Datei Neu aus im Produkthier mein CodeSub CATMain() Strfolder = CATIA.ActiveDocument.Path StrPath = Left(Strfolder, InStrRev(Strfolder, "")) StrTargetPath = StrPath & "Startup\_.catpart" MsgBox StrTargetPath Dim PListe As Products Set PListe = CATIA.ActiveDocument.Product.Products Dim oPartDoc As Document Set oPartDoc = CATIA.Documents.NewFrom(StrTargetPath) Antwort_Pos = InputBox("Beispiel: 100 ", " Positionsummer", "") Zahl = Antwort_Pos If Antwort_Pos = "" The ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : parameters2.Item (Pfad?)
Esterbauer am 05.01.2018 um 10:52 Uhr (1)
Hallo,Wie kann ich eine Variabel in parameters2.Item Einbauen ?Der Pfad sollte ich aus den Namen des Aktiven Dokumentes und EigenschaftenBauteil Bezeichnung zusammensetzen.Set strParam2 = parameters2.Item(Name, "EigenschaftenBauteil Bezeichnung")was mache ich falsch ?Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.PartSet relations1 = part1.RelationsSet parameters1 = part1.ParametersFullName = CATIA.ActiveDocument.NameName = Left(FullName, InStrRev(FullName, "")-8)MsgBox Name ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Speicherpfad auslesen
Esterbauer am 05.03.2018 um 14:39 Uhr (1)
Hallo,Ich habe nochmals eine Frage:Wie kann ich mehrere Ordnerebenen zurückspringen und diesen Pfad dann auslesen.Mein Code (Teil) schaut aktuell so aus.Strfolder = CATIA.ActiveDocument.PathStrPath = Left(Strfolder, InStrRev(Strfolder, ""))StrTargetPath = StrPath & "Startup est.catpart"MsgBox StrTargetPathDas aktive Part liegt unter c:catia100part estDas neu Part liegt unter c:catia100StartupDa der Ordnernamen (catia100) immer anders ist und die länge des Ordneramen variiert komme ich so nicht weiter.wer k ...
|
| In das Form CATIA V5 Programmierung wechseln |
